Don't use the obsolete char-valid-p function

* lisp/gnus/mm-url.el (mm-url-decode-entities): Don't use the
obsolete char-valid-p function.

diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el
index 25954b937eec4745509e60a97c9bd32d404cdeaf..fb11d7a07f5e0c6388296d6706ed487f3ca3b3d4 100644 (file)
--- a/lisp/gnus/mm-url.el
+++ b/lisp/gnus/mm-url.el
@@ -364,7 +364,7 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
                              (string-to-number (substring entity 1)))))
                       (setq c (or (cdr (assq c mm-extra-numeric-entities))
                                   (mm-ucs-to-char c)))
-                      (if (char-valid-p c) c ?#))
+                      (if (characterp c) c ?#))
                   (or (cdr (assq (intern entity)
                                  mm-url-html-entities))
                       ?#))))